home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d26 / extol30.arc / GENDER.EXT < prev    next >
Text File  |  1987-10-31  |  1KB  |  41 lines
  1. %Sample of Drill use in Extol
  2. %This program quizzes students on the gender of
  3. %french nouns. The student keysin M if the noun
  4. %is masculine and F if the noun is feminine.
  5. %The drill will determine whether or not the student
  6. %is correct and keep a count of correct answers
  7. %
  8. .define noundrill
  9.     Please enter the gender of the noun, <noun> :+
  10.     .accept
  11.     .reset(1)
  12.     .match(1,1).<answer>.
  13.     .goto(1).incorrect.correct
  14.     :incorrect
  15.     Sorry, but the gender of <noun> is <answer>.
  16.     .exit
  17.     :correct
  18.     Very good!  The gender of <noun> is <answer>.
  19.     .increment(2,1)
  20. .end
  21. %This is the end of the drill code
  22. %Program code follows:
  23. Welcome to the french noun quiz.  You will be given
  24. a noun and will be asked to type in the gender of
  25. the noun.  Please type in "M" if the noun is masculine
  26. and "F" if the noun is feminine.  good Luck!
  27. %
  28. .caseon
  29. .exact
  30. .<noun>=plume
  31. .<answer>=F
  32. .perform noundrill
  33. .<noun>=fils
  34. .<answer>=M
  35. .perform noundrill
  36. Your final score was+
  37. .print(2)
  38. out of a possible 2.
  39. .stop
  40.  
  41.